COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	This file is slightly newer than the latest hardcopy of TANGLE.WEB (which
C00006 ENDMK
C⊗;
This file is slightly newer than the latest hardcopy of TANGLE.WEB (which
was handed out at the Summer 82 TUG meeting at Stanford).  Here is a list
of the changes from that document, followed by the new WEB source itself.

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-30 (1403)
  \ctrline{(Version 0.97, almost ready to be Version 1.0)}
**** FILE PS:<4SCRATCH>T.W.1, 1-30 (1403)
  \ctrline{(Version 0.98, almost ready to be Version 1.0)}
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-1647 (68311)
want to have a procedure that treats a construction like \.{(E-15+y)}
as equivalent to `\.{(E+2)}', while also leaving `\.{(1E-15+y)}' and
**** FILE PS:<4SCRATCH>T.W.1, 1-1647 (68311)
want to have a procedure that treats a construction like \.{(E-15+17)}
as equivalent to `\.{(E+2)}', while also leaving `\.{(1E-15+17)}' and
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2226 (92018)
begin restart:
**** FILE PS:<4SCRATCH>T.W.1, 1-2226 (92020)
begin restart: incr(line);
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2257 (93163)
open←input; line:=1; changing:=false; prime←the←change←buffer;
**** FILE PS:<4SCRATCH>T.W.1, 1-2257 (93177)
open←input; line:=0; changing:=false; prime←the←change←buffer;
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2267 (93616)
begin incr(line);
if changing then @<Either continue to read from |change←file|
**** FILE PS:<4SCRATCH>T.W.1, 1-2267 (93630)
begin if changing then @<Either continue to read from |change←file|
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2275 (93889)
begin if not input←ln(web←file) then input←has←ended:=true
**** FILE PS:<4SCRATCH>T.W.1, 1-2274 (93890)
begin incr(line);
if not input←ln(web←file) then input←has←ended:=true
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2284 (94247)
**** FILE PS:<4SCRATCH>T.W.1, 1-2284 (94261)
incr(line);
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2302 (94795)
loop  begin loc:=0; incr(line);
**** FILE PS:<4SCRATCH>T.W.1, 1-2303 (94822)
loop@+  begin loc:=0; incr(line);
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-2316 (95256)
loop  begin if buffer[loc]="@@" then
**** FILE PS:<4SCRATCH>T.W.1, 1-2317 (95285)
loop@+  begin if buffer[loc]="@@" then
***************

**** FILE PS:<TEX.WEB>TANGLE.WEB.1, 1-3022 (121355)
print←ln('This is TANGLE, Version 0.97'); {print a ``banner line''}
**** FILE PS:<4SCRATCH>T.W.1, 1-3023 (121386)
print←ln('This is TANGLE, Version 0.98'); {print a ``banner line''}
***************